home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 011 / threecom.arc / KIHLKEN.BAS < prev    next >
Encoding:
BASIC Source File  |  1987-02-22  |  2.0 KB  |  42 lines
  1.  
  2.  
  3. 100 ' Program to create FFEED.COM, FASTOFF.COM, NOREPEAT.COM
  4. 110 CLS:PRINT "Checking DATA; please wait..."
  5. 120 FOR B=1 TO 14:FOR C=1 TO 17:READ A$:IF C<17 THEN 140
  6. 130 Z=Z+VAL(A$)
  7. 140 NEXT:NEXT
  8. 150 IF Z=17482 THEN RESTORE:GOTO 180
  9. 160 PRINT "ERROR: CHECK THE LAST NUMBER IN"
  10. 170 PRINT "EACH DATA STATEMENT--THEN REDO":END
  11. 180 FOR B=1 TO 14:FOR C=1 TO 16:READ A$:TTL=TTL+VAL("&H"+A$)
  12. 190 NEXT
  13. 200 READ S:IF S=TTL THEN 220
  14. 210 PRINT "DATA ERROR IN LINE";B*10+340;" -- REDO":END
  15. 220 TTL=0:NEXT:RESTORE
  16. 230 OPEN "FFEED.COM" AS #1 LEN=1:FIELD #1,1 AS D$
  17. 240 FOR B=1 TO 5:FOR C=1 TO 16:READ A$
  18. 250 LSET D$=CHR$(VAL("&H"+A$)):PUT #1:NEXT:READ DUMMY$:NEXT
  19. 260 CLOSE:PRINT "FFEED.COM CREATED"
  20. 270 OPEN "FASTOFF.COM" AS #1 LEN=1:FIELD #1,1 AS D$
  21. 280 FOR B=1 TO 4:FOR C=1 TO 16:READ A$
  22. 290 LSET D$=CHR$(VAL("&H"+A$)):PUT #1:NEXT:READ DUMMY$:NEXT
  23. 300 CLOSE:PRINT "FASTOFF.COM CREATED"
  24. 310 OPEN "NOREPEAT.COM" AS #1 LEN=1:FIELD #1,1 AS D$
  25. 320 FOR B=1 TO 5:FOR C=1 TO 16:READ A$
  26. 330 LSET D$=CHR$(VAL("&H"+A$)):PUT #1:NEXT:READ DUMMY$:NEXT
  27. 340 CLOSE:PRINT "NOREPEAT.COM CREATED"
  28. 350 DATA EB,30,00,00,00,00,FB,50,52,B4,02,BA,00,00,CD,17,1292
  29. 360 DATA F6,C4,80,74,1A,B4,02,CD,16,24,01,8A,D0,9C,2E,FF,1961
  30. 370 DATA 1E,02,01,80,FA,00,74,07,B8,0C,00,33,D2,CD,17,5A,1309
  31. 380 DATA 58,CF,B8,05,35,CD,21,89,1E,02,01,8C,06,04,01,BA,1282
  32. 390 DATA 06,01,B8,05,25,CD,21,BA,32,01,CD,27,00,00,00,00,952
  33. 400 DATA EB,1D,00,00,00,00,1E,50,B8,40,00,8E,D8,80,3E,40,1234
  34. 410 DATA 00,02,72,04,FE,0E,40,00,58,1F,2E,FF,2E,02,01,B8,1105
  35. 420 DATA 08,35,CD,21,89,1E,02,01,8C,06,04,01,BA,06,01,B8,997
  36. 430 DATA 08,25,CD,21,BA,1F,01,CD,27,00,00,00,00,00,00,00,745
  37. 440 DATA EB,2C,00,00,00,00,FF,FB,50,E4,60,2E,3A,06,06,01,1306
  38. 450 DATA 74,0A,2E,A2,06,01,58,2E,FF,2E,02,01,E4,61,8A,E0,1466
  39. 460 DATA 0C,80,E6,61,86,C4,E6,61,B0,20,E6,20,58,CF,B8,09,2082
  40. 470 DATA 35,CD,21,89,1E,02,01,8C,06,04,01,BA,07,01,B8,09,999
  41. 480 DATA 25,CD,21,BA,2E,01,CD,27,00,00,00,00,00,00,00,00,752
  42.